home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 86 / 086.d81 / fern boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  34 lines
  1. 5 ifpeek(56)<>150thenpoke56,150:clr
  2. 6 ifathen41
  3. 10 dv=peek(186):ifdv<8thendv=8
  4. 20 poke53281,.:poke53280,.:print"[147]"
  5. 30 gosub260
  6. 40 sys57812"fern64.ml",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 41 ifa=0thena=1:load"9600 menu",dv,1
  8. 42 ifa=1thena=2:load"9800 menu.o",dv,1
  9. 43 ifa=2thena=3:load"i-menu $cc00",dv,1
  10. 44 ifa=3thena=4:load"frn dir ca00",dv,1
  11. 50 b$="       [221]                        [221]"
  12. 70 print"       [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  13. 80 fori=1to7:printb$:next
  14. 90 print"       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  15. 120 printtab(15)"[145][145][145][145][145][204]oading..."
  16. 200 print"[144]load"chr$(34)"fern64.code"chr$(34)","dv
  17. 210 print"run"
  18. 220 poke44,64:poke16384,0
  19. 230 poke631,13:poke632,13:poke198,2
  20. 240 end
  21. 250 :
  22. 260 poke214,15:print
  23. 270 print"  [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  24. 280 print"  [152]                                    "
  25. 290 print"         [198] [197] [210] [206]    [214] [193] [204] [204] [197] [217]       "
  26. 300 print"    [194]y [201]an [193]dam (c) 1991 by [211]oftdisk  "
  27. 310 print"     [214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #86   "
  28. 320 print"      [211]ubscriptions 1-800-831-2694    "
  29. 330 print"           [193]ll [210]ights [210]eserved        "
  30. 340 print"                                      "
  31. 350 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  32. 360 return
  33. 10000 open15,8,15,"s0:fern boot":close15:save"fern boot",8:end
  34.